Don't bug out on invalid addresses in mml-secure-check-user-id

* lisp/gnus/mml-sec.el (mml-secure-check-user-id): Don't bug out
on invalid addresses (bug#33613).

diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 716e4b778ecdda94c32fa178545a2bc13b035f7c..51578a753dafdb4376a90b2210525af7425c7a71 100644 (file)
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -660,8 +660,9 @@ The passphrase is read and cached."
     (catch 'break
       (dolist (uid uids nil)
        (if (and (stringp (epg-user-id-string uid))
-                 (car (mail-header-parse-address
-                       (epg-user-id-string uid)))
+                 (car (ignore-errors
+                       (mail-header-parse-address
+                        (epg-user-id-string uid))))
                 (equal (downcase (car (mail-header-parse-address
                                        (epg-user-id-string uid))))
                        (downcase (car (mail-header-parse-address